Dit voorbeeld maakt gebruik van de functie DateSerial om de datum te geven voor een opgegeven jaar, maand en dag.
Dim MyDate ' MyDate bevat de datum 12 februari 1969. MyDate = DateSerial(1969, 2, 12) ' Datum als resultaat.